10000 REM  M O D U L    LAST NOT LEAST  [ 4 / 85 ]
10200 :
10400 REM ************************
10600 POKE50257,4:REM SYSTEMPOKE
10800 REM ************************
11000 :
11200 SI=54272:VI=53284:LL$="                    "
11400 PRINTCHR$(14)CHR$(8);"[147][144]";:POKE53280,8:POKE53281,8
11600 GOSUB43600:Z=1:S=6:GOSUB52400:PRINT"[204] [193][160][211][160][212][160][160][160][206][160][207][160][212][160][160][160][204][160][197][160][193][160][211][160][212]"
12200 Z=8:S=2:GOSUB52400:PRINT" 1 [144]  [215] I R   S T E L L E N   E I N"
12400 Z=10:S=2:GOSUB52400:PRINT" 2 [144]  [193] U T O R E N [160] G E S U C H T"
12600 Z=12:S=2:GOSUB52400:PRINT" 3 [144]  [215] E T T B E W E R B"
12700 Z=14:S=2:GOSUB52400:PRINT" 4 [144]  [201][206][208][213][212] 64[146]  A U F   [196] I S K E T T E"
12800 Z=16:S=2:GOSUB52400:PRINT" 5 [144]  [214] O R S C H A U  [201][206][208][213][212] 64[146] 5/85"
13000 Z=24:S=3:GOSUB52400:PRINT"[158][215]AHL    1 - 5 [146]";:FORT=0TO200:NEXTT
13200 GETG$:IFG$=""THEN13800
13400 IFG$>"0"ANDG$<"6"THENGOSUB44800:GOTO14000
13600 GOSUB45600
13800 GOSUB52400:PRINT"[215]AHL    1 - 5 ";:FORT=0TO200:NEXTT:GOTO13000
14000 ONVAL(G$)GOSUB22000,25600,29600,14400,35600
14200 GOTO11400
14400 :
14600 REM INPUT AUF DISKETTE
14800 PRINT"[147][144]";:POKE53280,8:POKE53281,8
15000 GOSUB43600:Z=1:S=1:GOSUB52400:PRINT"[206] E U : [196] I S K V E R S I O N : [206] E U"
15200 PRINT:PRINT"[193]B SOFORT GIBT ES [201][206][208][213][212] 64[146] AUCH AUF"
15210 PRINT"[196]ISKETTE. [205]IT GLEICHEM [201]NHALT, MIT"
15220 PRINT"[210]AHMENPROGRAMM, NUR OHNE [211]PULEREI."
15230 PRINT:PRINT"[211]IE KOENNEN DIE [196]ISKETTE DIREKT BEIM"
15240 PRINT"[214]ERLAG [200]EINZ [200]EISE [199]MB[200][160]BESTELLEN; DIE"
15250 PRINT"EINZELNE [193]USGABE KOSTET [196][205] 16,80 PLUS"
15260 PRINT"[196][205] 3,- FUER [208]ORTO UND [214]ERPACKUNG."
15270 PRINT:PRINT"[197]IN [193]BONNEMENT KOSTET PRO [202]AHR [196][205] 198,-"
15280 PRINT"INCL. [208]ORTO UND [214]ERPACKUNG. [197]S IST"
15290 PRINT"JEDERZEIT FORMLOS ZUR UEBERNAECHSTEN":PRINT"[193]USGABE KUENDBAR."
15400 GOSUB47200:RETURN
15600 :
22000 REM REDAKTUER
22200 PRINT"[147][144]";:POKE53280,8:POKE53281,8
22400 GOSUB43600:Z=1:S=3:GOSUB52400:PRINT"[210] E D A K T E U R   G E S U C H T "
22600 PRINT:PRINT:PRINT"[201][206][208][213][212][160]64 HAT ALLE [197]RWARTUNGEN"
22800 PRINT"UEBERTROFFEN - STEIGEN [211]IE EIN!":PRINT
23000 PRINT"[158][215]IR SUCHEN EINE(N) [198]ACHREDAKTEUR(IN).":PRINT
23200 PRINT"[215]ENN [211]IE:":PRINT
23400 PRINT"- [201]DEEN FUER DIE [215]EITERENTWICKLUNG"
23600 PRINT"  EINES NEUEN [208]RODUKTES HABEN,"
23800 PRINT"- [203]ONTAKTE MIT [193]UTOREN HERSTELLEN UND"
24000 PRINT"  PFLEGEN KOENNEN,
24200 [153]"- UEBER FUNDIERTE (null)ENNTNISSE IN PEEKATN(null)RIGHT$LEN"
24400 [153]"  UND ATN(null)(null)VAL(null)PEEK(null)VAL(null) VERFUEGEN"
24600 [153]"- SOWIE (null)PASS AN ENGAGIERTER (null)EAMARBEIT"
24800 [153]"  HABEN,":[153]
25000 [153]"SYSDANN RUFEN (null)IE DOCH MAL AN!"
25200 [141]47200:[142]
25400 :
25600 [143] AUTOR
25800 [153]"LOADSTOP";:[151]53280,8:[151]53281,8
26000 [141]43600:Z[178]1:S[178]4:[141]52400:[153]"ATN U T O R E N    G E S U C H T "
26200 [153]:[153]:[153]"ATNUCH (null)IE KOENNEN SICH MIT (null)ROGRAMMEN"
26400 [153]"AN DEN NAECHSTEN ATNUSGABEN VON RIGHT$(null)(null)(null)(null) 64WAIT"
26600 [153]"BETEILIGEN.":[153]
26800 [153]"(null)ENN (null)IE INTERESSANTE (null)ROGRAMME HABEN"
27000 [153]"- DIE SELBSTVERSTAENDLICH NOCH NICHT"
27200 [153]"VEROEFFENTLICHT SIND - WUERDEN WIR GERNE";
27400 [153]"MIT RIGHT$HNEN UEBER DEN ATNNKAUF DER (null)ECHTE"
27600 [153]"SPRECHEN.":[153]
27800 [153]"PEEKITTE BEACHTEN (null)IE ABER DIE TECHNISCHEN"
28000 [153]"UND SONSTIGEN ATNNFORDERUNGEN, DIE IN"
28200 [153]"UNSEREM PEEKEIHEFT AUFGEFUEHRT SIND.":[153]
28400 [153]"(null)ENN (null)IE ATNSSEMBLER GUT BEHERRSCHEN UND"
28600 [153]"AN ATNUFTRAGSPROGRAMMIERUNG INTERESSIERT"
28800 [153]"SIND, NEHMEN (null)IE BITTE MIT UNS"
29000 [153]"(null)ONTAKT AUF."
29200 [141]47200:[142]
29400 :
29500 [143] WETTBEWERB
29600 [153]"LOADSTOP";:[151]53280,8:[151]53281,8
29800 [141]43600:Z[178]1:S[178]9:[141]52400:[153]"(null) E T T B E W E R B"
30000 [153]:[153]:[153]"LEFT$ABEN (null)IE ENDLICH RIGHT$HR SEIT (null)ONATEN"
30200 [153]"GEPLANTES (null)CHACHPROGRAMM FERTIG? (null)DER"
30400 [153]"EINE (null)OEGLICHKEIT GEFUNDEN, MIT DEM LEN64"
30500 [153]"EINEN RIGHT$PEEK(null)-(null)LEN ZU SIMULIEREN?":[153]
30510 [153]"ATNBER AUCH, WENN (null)IE EIN SCHOENES (null)PIEL-"
30520 [153]"(null)ROGRAMM GESCHRIEBEN HABEN, SOLLTEN (null)IE"
30600 [153]"ES SCHLEUNIGST IN EINEN PEEKRIEFUMSCHLAG"
30800 [153]"STECKEN UND UNS SCHICKEN.":[153]
30850 [153]"(null)IT ETWAS CHR$LUECK KOENNEN (null)IE DADURCH"
30870 [153]:[153]"             SYS3000 STR$(null)":[153]
30880 [153]"ZUR ATNUFBESSERUNG RIGHT$HRER (null)RLAUBSKASSE"
30890 [153]"DAZUGEWINNEN."
32200 [141]48800
32400 :
32600 [153]"LOADSTOP";:[151]53280,8:[151]53281,8
32800 [141]43600:Z[178]1:S[178]9:[141]52400:[153]"(null) E T T B E W E R B"
33000 [153]:[153]:[153]"ASCUER ALLE, DIE ES NOCH NICHT WISSEN:":[153]
33200 [153]"(null)IR SUCHEN FUER RIGHT$(null)(null)(null)(null) 64WAIT LAUFEND 'STR$AS"
33400 [153]"(null)RIGINELLSTE (null)ROGRAMM'. PEEKEI DIESEM"
33600 [153]"(null)ETTBEWERB GIBT ES KEINEN VALINSENDE-"
33800 [153]"SCHLUSS, DER ATNUFRUF WIRD JEDEN (null)ONAT":[153]"ERNEUERT.":[153]
34000 [153]"ASCUER DEN CHR$EWINNER LIEGT BEI UNS"
34200 [153]"STAENDIG EIN (null)CHECK UEBER":[153]
34400 [153]"               SYS3000 STR$(null)":[153]
34600 [153]"BEREIT. STR$EN WUERDEN WIR GERNE WIEDER"
34800 [153]"EINMAL VERGEBEN. (null)IR WARTEN ALSO AUF"
35000 [153]"RIGHT$HRE GENIALEN VALINFAELLE UND WUENSCHEN"
35100 [153]"RIGHT$HNEN VIEL CHR$LUECK!"
35200 [141]47200:[142]
35400 :
35600 [143] VORSCHAU
35800 [153]"LOADSTOP";:[151]53280,8:[151]53281,8
36000 [141]43600:Z[178]1:S[178]5:[141]52400:[153]"(null) O R S C H A U  RIGHT$(null)(null)(null)(null)CLOSE64  5/85"
36200 [153]:[153]:[153]"SYSRIGHT$N DER NAECHSTEN ATNUSGABE VON RIGHT$(null)(null)(null)(null) 64WAIT"
36400 [153]"FINDEN, SEHEN UND HOEREN (null)IE:":[153]:[153]
36600 [153]"(null)(null)(null)(null)(null)-PEEKRIGHT$(null)VAL - VALIN (null)ROGRAMM ZUR PEEKERECHNUNG";
36800 [153]"  UND (null)EBERPRUEFUNG VON (null)OTORLEISTUNGEN":[153] :[153]
37000 [153]"LEFT$RIGHT$(null)(null)VAL(null)CHR$(null)(null)(null)STR$(null)(null)(null)RIGHT$(null)(null)(null) - PEEKEOBACHTEN (null)IE"
37200 [153]"  (null)PEICHERBEREICHE, WIE SIE SICH BEIM"
37300 [153]"  (null)ROGRAMMLAUF VERAENDERN.":[153]:[153]
37400 [153]"PEEKRIGHT$(null)(null) & PEEK(null)(null)VAL(null) RIGHT$(null) (null)RIGHT$LEN - (null)EIL 5 DES (null)URSES"
37600 [153]"  LUEFTET DIE LETZTEN CHR$EHEIMNISSE DES"
37700 [153]"  (null)IDEO-LENHIPS.":[153]
37800 [141]48800
37820 [153]"LOADSTOP";:[151]53280,8:[151]53281,8
37840 [141]43600:Z[178]1:S[178]5:[141]52400:[153]"(null) O R S C H A U  RIGHT$(null)(null)(null)(null) 64  5/85":[153]:[153]:[153]
37860 [153]"SYSATNUSSERDEM GIBT ES NATUERLICH WIEDER"
37880 [153]"DIE (null)UBRIKEN:":[153]
37900 [153]" - LEFT$ILFSPROGRAMME"
37920 [153]" - (null)EWS"
37940 [153]" - 64ER (null)IPS":[153]
37960 [153]"SYSSOWIE ATNNWENDERPROGRAMME, (null)PIELE,..."
38000 [153]"SYS                      STR$IE ATNUSGABE 5/85"
38200 [153]"SYS                      ERHALTEN (null)IE AB"
38400 [153]"                      20. (null)AI 1985"
38600 [141]47200:[142]
38800 :
39000 :::::::::::::::::::::::::::::
39200 [143] ****  UNTERPROGRAMME ****
39400 :::::::::::::::::::::::::::::
39600 :
43400 [143] RAHMEN FUER SEITENUEBERSCHRIFT
43600 Z[178]0:S[178]0:[141]52400
43800 [153]"STOPORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
44000 [153]"(null)                                      (null)";
44200 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[142]
44400 :
44600 [143] GUELTIGE EINGABE
44800 [151]SI,59:[151]SI[170]1,139:[151]SI[170]6,240:[151]SI[170]4,17
45000 [151]SI[170]24,15:[129]T[178]0[164]100:[130]T:[151]SI[170]4,0:[142]
45200 :
45400 [143] UNGUELTIGE EINGABE
45600 [151]SI,180:[151]SI[170]1,8:[151]SI[170]6,240:[151]SI[170]4,17
45800 [151]SI[170]24,15:[129]T[178]0[164]100:[130]T:[151]SI[170]4,0:[142]
46000 :
46200 [143] TON GRAPHIK
46400 [151]SI,117:[151]SI[170]1,6:[151]SI[170]5,15:[151]SI[170]6,90:[151]SI[170]24,15:[151]SI[170]4,17
46600 [129]T[178]0[164]150:[130]T:[151]SI[170]4,16:[142]
46800 :
47000 [143] ABFRAGE FUER I
47200 Z[178]24:S[178]0:[141]52400:[153]"SYSRIGHT$NHALT =  RIGHT$ WAIT";:[129]T[178]0[164]200:[130]T
47400 [161]G$:[139]G$[178]""[167]48000
47600 [139]G$[178]"I"[176]G$[178]"RIGHT$"[167][141]44800:[137]48200
47800 [141]45600
48000 [141]52400:[153]"RIGHT$NHALT =  RIGHT$  ";:[129]T[178]0[164]200:[130]T:[137]47200
48200 [141]52400:[153]"                  ";:[142]
48400 :
48600 [143] ABFRAGE FUER W
48800 Z[178]24:S[178]0:[141]52400:[153]"SYS(null)EITER =  (null) WAIT";:[129]T[178]0[164]200:[130]T
49000 [161]G$:[139]G$[178]""[167]49600
49200 [139]G$[178]"W"[176]G$[178]"(null)"[167][141]44800:[137]49800
49400 [141]45600
49600 [141]52400:[153]"(null)EITER =  (null)  ";:[129]T[178]0[164]200:[130]T:[137]48800
49800 [141]52400:[153]"                 ";:[142]
50000 :
50200 [143] ABFRAGE FUER W + I
50400 Z[178]24:S[178]0:[141]52400
50600 [153]"SYS(null)EITER =  (null) WAIT   /  RIGHT$NHALT =  RIGHT$ WAIT";:[129]T[178]0[164]150:[130]T
50800 [161]G$:[139]G$[178]""[167]51400
51000 [139]G$[178]"W"[176]G$[178]"(null)"[176]G$[178]"I"[176]G$[178]"RIGHT$"[167][141]44800:[137]51800
51200 [141]45600
51400 [141]52400:[153]"(null)EITER =  (null)    /  RIGHT$NHALT =  RIGHT$ ";:[129]T[178]0[164]200:[130]T
51600 [137]50400
51800 [141]52400:[153]"                                     ";:[142]
52000 :
52200 [143] CURSER SETZEN
52400 [151]214,Z:[151]211,S:[158]58640:[153]"";:[142]